{
语法百题 解题报告：
 http://git.oschina.net/et0662/sznoi-grammar/ 
}
var
	a:array[1..255] of boolean;
	i,j:integer;
begin
	for i:=2 to 255 do
		a[i]:=true;
	for i:= 2 to 16 do
	begin
		if(a[i]) then
		begin
			j:=i*2;
			while(j<=255)do
			begin
				a[j]:=false;
				j:=j+i;
			end;
		end;
	end;
	for i:=2 to 255 do
		if a[i] then
			writeln(i);
end.
